home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 March / PC Plus Super CD (Issue 101) (March 1995).iso / sharewar / vbaddon / vbfiles / ffx.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-08-22  |  10.3 KB  |  323 lines
  1. VERSION 2.00
  2. Begin Form fFX 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Special FX"
  5.    ClientHeight    =   4170
  6.    ClientLeft      =   300
  7.    ClientTop       =   2175
  8.    ClientWidth     =   8820
  9.    Height          =   4635
  10.    Left            =   210
  11.    LinkTopic       =   "Form3"
  12.    ScaleHeight     =   4170
  13.    ScaleWidth      =   8820
  14.    Top             =   1800
  15.    Width           =   9000
  16.    Begin vsInForm vsInForm1 
  17.       BarColor        =   &H00C0C0C0&
  18.       BarColorInactive=   &H00C0C0C0&
  19.       BarHeight       =   30
  20.       BarStyle        =   3  'Raised
  21.       ButtonsLeft     =   0  '0
  22.       ButtonsRight    =   1  '1
  23.       CapAlign        =   1  'Left Center
  24.       CapColor        =   &H00C0C0C0&
  25.       CapColorInactive=   &H00C0C0C0&
  26.       CapStyle        =   1  'Raised
  27.       Caption         =   "   vsInForm: Custom Borders on Forms and Controls"
  28.       FontBold        =   -1  'True
  29.       FontItalic      =   0   'False
  30.       FontName        =   "Arial"
  31.       FontSize        =   12
  32.       FontStrikethru  =   0   'False
  33.       FontUnderline   =   0   'False
  34.       FrameColor      =   &H00C0C0C0&
  35.       FrameColorInactive=   &H00C0C0C0&
  36.       FrameCorners    =   0   'False
  37.       FrameSizing     =   0  'None
  38.       FrameStyle      =   3  'Raised Form
  39.       Left            =   3300
  40.       PictRight0      =   FFX.FRX:0000
  41.       Top             =   2085
  42.    End
  43.    Begin Frame Frame2 
  44.       BackColor       =   &H00C0C0C0&
  45.       Caption         =   "Frame"
  46.       Height          =   1695
  47.       Left            =   105
  48.       TabIndex        =   8
  49.       Top             =   210
  50.       Width           =   3075
  51.       Begin CheckBox Check1 
  52.          Alignment       =   1  'Right Justify
  53.          BackColor       =   &H00C0C0C0&
  54.          Caption         =   "Corners"
  55.          FontBold        =   0   'False
  56.          FontItalic      =   0   'False
  57.          FontName        =   "MS Sans Serif"
  58.          FontSize        =   8.25
  59.          FontStrikethru  =   0   'False
  60.          FontUnderline   =   0   'False
  61.          Height          =   225
  62.          Left            =   315
  63.          TabIndex        =   15
  64.          Top             =   1365
  65.          Width           =   1170
  66.       End
  67.       Begin ComboBox Combo6 
  68.          Height          =   300
  69.          Left            =   1020
  70.          Style           =   2  'Dropdown List
  71.          TabIndex        =   11
  72.          Tag             =   "Left"
  73.          Top             =   300
  74.          Width           =   1815
  75.       End
  76.       Begin ComboBox Combo5 
  77.          Height          =   300
  78.          Left            =   1020
  79.          Style           =   2  'Dropdown List
  80.          TabIndex        =   10
  81.          Tag             =   "Left"
  82.          Top             =   600
  83.          Width           =   1815
  84.       End
  85.       Begin ComboBox Combo4 
  86.          Height          =   300
  87.          Left            =   1020
  88.          Style           =   2  'Dropdown List
  89.          TabIndex        =   9
  90.          Tag             =   "Left"
  91.          Top             =   900
  92.          Width           =   1815
  93.       End
  94.       Begin Label Label6 
  95.          BackStyle       =   0  'Transparent
  96.          Caption         =   "Style"
  97.          FontBold        =   0   'False
  98.          FontItalic      =   0   'False
  99.          FontName        =   "MS Sans Serif"
  100.          FontSize        =   8.25
  101.          FontStrikethru  =   0   'False
  102.          FontUnderline   =   0   'False
  103.          Height          =   255
  104.          Left            =   180
  105.          TabIndex        =   14
  106.          Top             =   360
  107.          Width           =   555
  108.       End
  109.       Begin Label Label5 
  110.          BackStyle       =   0  'Transparent
  111.          Caption         =   "Resizing"
  112.          FontBold        =   0   'False
  113.          FontItalic      =   0   'False
  114.          FontName        =   "MS Sans Serif"
  115.          FontSize        =   8.25
  116.          FontStrikethru  =   0   'False
  117.          FontUnderline   =   0   'False
  118.          Height          =   255
  119.          Left            =   180
  120.          TabIndex        =   13
  121.          Top             =   660
  122.          Width           =   735
  123.       End
  124.       Begin Label Label4 
  125.          BackStyle       =   0  'Transparent
  126.          Caption         =   "Width"
  127.          FontBold        =   0   'False
  128.          FontItalic      =   0   'False
  129.          FontName        =   "MS Sans Serif"
  130.          FontSize        =   8.25
  131.          FontStrikethru  =   0   'False
  132.          FontUnderline   =   0   'False
  133.          Height          =   255
  134.          Left            =   180
  135.          TabIndex        =   12
  136.          Top             =   960
  137.          Width           =   555
  138.       End
  139.    End
  140.    Begin Frame Frame1 
  141.       BackColor       =   &H00C0C0C0&
  142.       Caption         =   "Caption"
  143.       Height          =   1380
  144.       Left            =   105
  145.       TabIndex        =   1
  146.       Top             =   1995
  147.       Width           =   3075
  148.       Begin ComboBox Combo3 
  149.          Height          =   300
  150.          Left            =   1020
  151.          Style           =   2  'Dropdown List
  152.          TabIndex        =   6
  153.          Tag             =   "Left"
  154.          Top             =   900
  155.          Width           =   1815
  156.       End
  157.       Begin ComboBox Combo2 
  158.          Height          =   300
  159.          Left            =   1020
  160.          Style           =   2  'Dropdown List
  161.          TabIndex        =   4
  162.          Tag             =   "Left"
  163.          Top             =   600
  164.          Width           =   1815
  165.       End
  166.       Begin ComboBox Combo1 
  167.          Height          =   300
  168.          Left            =   1020
  169.          Style           =   2  'Dropdown List
  170.          TabIndex        =   2
  171.          Tag             =   "Left"
  172.          Top             =   300
  173.          Width           =   1815
  174.       End
  175.       Begin Label Label3 
  176.          BackStyle       =   0  'Transparent
  177.          Caption         =   "Height"
  178.          FontBold        =   0   'False
  179.          FontItalic      =   0   'False
  180.          FontName        =   "MS Sans Serif"
  181.          FontSize        =   8.25
  182.          FontStrikethru  =   0   'False
  183.          FontUnderline   =   0   'False
  184.          Height          =   255
  185.          Left            =   180
  186.          TabIndex        =   7
  187.          Top             =   960
  188.          Width           =   555
  189.       End
  190.       Begin Label Label2 
  191.          BackStyle       =   0  'Transparent
  192.          Caption         =   "Align"
  193.          FontBold        =   0   'False
  194.          FontItalic      =   0   'False
  195.          FontName        =   "MS Sans Serif"
  196.          FontSize        =   8.25
  197.          FontStrikethru  =   0   'False
  198.          FontUnderline   =   0   'False
  199.          Height          =   255
  200.          Left            =   180
  201.          TabIndex        =   5
  202.          Top             =   660
  203.          Width           =   555
  204.       End
  205.       Begin Label Label1 
  206.          BackStyle       =   0  'Transparent
  207.          Caption         =   "Style"
  208.          FontBold        =   0   'False
  209.          FontItalic      =   0   'False
  210.          FontName        =   "MS Sans Serif"
  211.          FontSize        =   8.25
  212.          FontStrikethru  =   0   'False
  213.          FontUnderline   =   0   'False
  214.          Height          =   255
  215.          Left            =   180
  216.          TabIndex        =   3
  217.          Top             =   360
  218.          Width           =   555
  219.       End
  220.    End
  221.    Begin PictureBox Picture1 
  222.       Height          =   3705
  223.       Left            =   3780
  224.       Picture         =   FFX.FRX:00D2
  225.       ScaleHeight     =   3330
  226.       ScaleWidth      =   4245
  227.       TabIndex        =   0
  228.       Top             =   210
  229.       Width           =   4425
  230.       Begin vsInForm VSi 
  231.          BarColor        =   &H00C0C0C0&
  232.          BarColorInactive=   &H00C0C0C0&
  233.          BarHeight       =   13
  234.          ButtonsLeft     =   3  '3
  235.          ButtonsRight    =   3  '3
  236.          Caption         =   "Floating Picture Box"
  237.          CustomFrame     =   -1  'True
  238.          FontBold        =   0   'False
  239.          FontItalic      =   0   'False
  240.          FontName        =   "Small Fonts"
  241.          FontSize        =   6.75
  242.          FontStrikethru  =   0   'False
  243.          FontUnderline   =   0   'False
  244.          FrameColor      =   &H00C0C0C0&
  245.          FrameColorInactive=   &H00C0C0C0&
  246.          FrameCorners    =   0   'False
  247.          Left            =   210
  248.          PictLeft0       =   FFX.FRX:3E88
  249.          PictLeft1       =   FFX.FRX:3F52
  250.          PictLeft2       =   FFX.FRX:401C
  251.          PictRight0      =   FFX.FRX:40E6
  252.          PictRight1      =   FFX.FRX:41B0
  253.          PictRight2      =   FFX.FRX:427A
  254.          Top             =   1020
  255.       End
  256.    End
  257. Option Explicit
  258. Sub Check1_Click ()
  259.   VSi.FrameCorners = Not VSi.FrameCorners
  260. End Sub
  261. Sub Combo1_Click ()
  262.   VSi.BarStyle = Val(Combo1)
  263. End Sub
  264. Sub Combo2_Click ()
  265.   VSi.CapAlign = Val(Combo2)
  266. End Sub
  267. Sub Combo3_Click ()
  268.   VSi.BarHeight = Val(Combo3)
  269. End Sub
  270. Sub Combo4_Click ()
  271.   VSi.FrameWidth = Val(Combo4)
  272. End Sub
  273. Sub Combo5_Click ()
  274.   VSi.FrameSizing = Val(Combo5)
  275. End Sub
  276. Sub Combo6_Click ()
  277.   VSi.FrameStyle = Val(Combo6)
  278. End Sub
  279. Sub Form_Load ()
  280.   VSinform1.CustomFrame = True
  281.   ' cap style
  282.   Combo1.AddItem "0 - None"
  283.   Combo1.AddItem "1 - Flat"
  284.   Combo1.AddItem "2 - No Border"
  285.   Combo1.AddItem "3 - Raised"
  286.   Combo1.AddItem "4 - Inset"
  287.   Combo1.ListIndex = 3
  288.   ' cap align
  289.   Combo2.AddItem "1 - Left Center"
  290.   Combo2.AddItem "4 - Center Center"
  291.   Combo2.AddItem "7 - Right Center"
  292.   Combo2.ListIndex = 1
  293.   ' cap height
  294.   Combo3.AddItem "0 - Default"
  295.   Combo3.AddItem "12"
  296.   Combo3.AddItem "15"
  297.   Combo3.AddItem "25"
  298.   Combo3.ListIndex = 3
  299.   ' frame style
  300.   Combo6.AddItem "0 - None"
  301.   Combo6.AddItem "1 - Classic"
  302.   Combo6.AddItem "2 - Outside"
  303.   Combo6.AddItem "3 - Raised Form"
  304.   Combo6.AddItem "4 - Raise Frame"
  305.   Combo6.ListIndex = 3
  306.   ' resizing
  307.   Combo5.AddItem "0 - None"
  308.   Combo5.AddItem "1 - Horizontal"
  309.   Combo5.AddItem "2 - Vertical"
  310.   Combo5.AddItem "3 - Both"
  311.   Combo5.ListIndex = 3
  312.   ' frame width
  313.   Combo4.AddItem "0 - Default"
  314.   Combo4.AddItem "3"
  315.   Combo4.AddItem "5"
  316.   Combo4.AddItem "8"
  317.   Combo4.AddItem "12"
  318.   Combo4.ListIndex = 3
  319. End Sub
  320. Sub VSInForm1_ClickRButton (Button As Integer)
  321.   Unload Me
  322. End Sub
  323.